home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
003
/
mailable.arc
/
ML2MULTI.PRG
< prev
next >
Wrap
Text File
|
1979-12-31
|
2KB
|
89 lines
* LABLMEMB.CMD
* PRINTS 2 LABELS FROM EXTERNAL RECORD NUMBER FILE
* WIL WAKELY, 6/82
ERASE
?' PRINT 2 LABELS FOR MEMBERSHIP CARDS'
?
?' USE 15/16 X 3.5 LABELS'
?' ESCAPE TO EXIT AT ANY TIME'
SET TALK OFF
* SET-UP LABELS
?
STORE 'Y' TO ANSWER
DO WHILE !(ANSWER)='Y'
?'PRINT SET-UP LABEL? (Y/N)'
WAIT TO ANSWER
IF !(ANSWER)='Y'
SET PRINT ON
?'LINE1 AAAAA'
?'LINE2 BBBBB'
?'LINE3 CCCCC'
?'LINE4 DDDDD'
?'LINE5 EEEEE'
?
SET PRINT OFF
ENDIF
ENDDO
* DETERMINE MODE
ERASE
?
?
?
?' RECORD SELECTION'
?
?
?' 1 - GET RECORD NUMBER FROM KEYBOARD'
?
?' 2 - USE EXTERNAL FILE (INDX.DBF)'
?
?' 3 - PRINT ENTIRE DATA FILE'
?
?
INPUT 'ENTER SELECTION' TO MODE
?
?' PRINT HOW MANY LABELS FOR EACH RECORD?'
?
INPUT TO COUNT1
ERASE
DO CASE
CASE MODE=1
DO WHILE T
INPUT "RECORD NUMBER (ESC TO EXIT)" TO RECNO
SET PRINT ON
GOTO RECNO
DO ML2LAB4
SET PRINT OFF
ENDDO
CASE MODE=2
* PRINTS LABELS FROM FILE INDX.DBF
* WITH ONE FIELD: REC:NO, NUMERIC, 4
USE &BASE
SELECT SECONDARY
USE INDX
GOTO TOP
SET PRINT ON
DO WHILE .NOT. EOF
STORE REC:NO TO MREC:NO
SELECT PRIMARY
GOTO MREC:NO
DO ML2LAB4
SELECT SECONDARY
SKIP
ENDDO
SELECT PRIMARY
CASE MODE=3
USE &BASE
GO TOP
SET PRINT ON
DO WHILE .NOT. EOF
DO ML2LAB4
SKIP
ENDDO
OTHERWISE
DO ML2
ENDCASE
SET PRINT OFF
SET TALK ON
RELEASE ALL
RETURN